home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / SOURCES / ATARI_SRC.ZIP / atari source / RUNTIME / MPIX.TXT < prev    next >
Encoding:
Text File  |  2001-02-10  |  911 b   |  33 lines
  1. :l.put_mpix
  2. put_mpix_:
  3. 001AC5F8      link    a6,#$FFF8
  4. 001AC5FC      move.l    d7,-(a7)
  5. 001AC5FE      move.l    $1EE3EA,d7    page_ptr_
  6. 001AC604      move.w    $A(a6),d0
  7. 001AC608      ext.l    d0
  8. 001AC60A      move.l    d0,-(a7)
  9. 001AC60C      move.w    $C(a6),d0
  10. 001AC610      ext.l    d0
  11. 001AC612      move.l    d0,-(a7)
  12. 001AC614      jsr    $1DB9EE    lrmul
  13. 001AC61A      addq.w    #$8,a7
  14. 001AC61C      add.l    d0,d7
  15. 001AC61E      move.w    $8(a6),d0
  16. 001AC622      ext.l    d0
  17. 001AC624      divs.w    #$8,d0
  18. 001AC628      ext.l    d0
  19. 001AC62A      add.l    d0,d7
  20. 001AC62C      move.l    d7,$FFFC(a6)
  21. 001AC630      move.w    $8(a6),d0
  22. 001AC634      ext.l    d0
  23. 001AC636      divs.w    #$8,d0
  24. 001AC63A      swap.w    d0
  25. 001AC63C      movea.w    d0,a1
  26. 001AC63E      adda.l    #$1DD626,a1    pixtbl_
  27. 001AC644      movea.l    $FFFC(a6),a0
  28. 001AC648      move.b    (a1),d0
  29. 001AC64A      or.b    d0,(a0)
  30. 001AC64C      move.l    (a7)+,d7
  31. 001AC64E      unlk    a6
  32. 001AC650      rts
  33.